home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Text / WASTE / WASTE 1.1.2 Distribution / Pseudo-UPI for THINK Pascal / Fonts.p < prev    next >
Encoding:
Text File  |  1995-10-12  |  411 b   |  25 lines  |  [TEXT/PJMM]

  1. unit Fonts;
  2.  
  3. { Pascal Interface to the Macintosh Libraries }
  4.  
  5. { Copyright © Apple Computer Inc. }
  6. { All Rights Reserved }
  7.  
  8. { Adapted for use with THINK Pascal 4.0.x by Marco Piovanelli }
  9.  
  10. interface
  11.  
  12.     function GetDefFontSize: Integer;
  13.     inline
  14.         $3EB8, $0BA8, $6604, $3EBC, $000C;
  15.  
  16.     function GetSysFont: Integer;
  17.     inline
  18.         $3EB8, $0BA6;
  19.  
  20.     function GetAppFont: Integer;
  21.     inline
  22.         $3EB8, $0984;
  23.  
  24. implementation
  25. end.